home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 5
/
Aminet 5 - March 1995.iso
/
Aminet
/
util
/
cli
/
CLI_Tools.lha
/
Suffix.c
< prev
next >
Wrap
C/C++ Source or Header
|
1995-02-03
|
2KB
|
106 lines
/******************************************************************************
MODULE
Suffix.c
DESCRIPTION
Get one string on Commandline
and write its Suffix to StdOut
NOTES
Kickstart 2.0+ required
compiles w/ Dice 2.07R - inline-pragmas required
compiles w/ SAS/C v6.51
BUGS
none known
TODO
EXAMPLES
> suffix ram:t/jabba.bak
bak
SEE ALSO
FilePart, PathPart
INDEX
HISTORY
01-08-93 b_noll created
AUTHOR
Bernd Noll, Brunnenstrasse 55, D-67661 Kaiserslautern
b_noll@informatik.uni-kl.de
******************************************************************************/
/**************************************
Includes
**************************************/
#ifndef EXEC_LIBRARIES_H
# include <exec/libraries.h>
#endif /* EXEC_LIBRARIES_H */
#ifndef CLIB_EXEC_PROTOS_H
# include <clib/exec_protos.h>
#endif /* CLIB_EXEC_PROTOS_H */
#ifndef DOS_DOS_H
# include <dos/dos.h>
#endif /* DOS_DOS_H */
#ifndef CLIB_DOS_PROTOS_H
# include <clib/dos_protos.h>
#endif /* CLIB_DOS_PROTOS_H */
#include <proto/dos.h>
#include <proto/exec.h>
/**************************************
Global Variables
**************************************/
/**************************************
Implementation
**************************************/
long _main (void)
{
const char* version = "$VER: Suffix 1.0 (23.8.93)";
long retval = 20;
struct Library* SysBase = *((struct Library**)4L);
struct Library* DOSBase;
if (DOSBase = OpenLibrary (DOSNAME, 37)) {
STRPTR argv[2] = { NULL, NULL };
APTR args;
retval = 10;
if (args = (void*)ReadArgs("FILE/A", (LONG*)argv, NULL)) {
STRPTR p;
p = argv[0];
retval = 5;
if (p && *p) {
while (*p) ++p;
--p;
while ((p != argv[0]) && (*p != '.') && (*p != ':') && (*p != '/')) --p;
if (*p == '.') {
if (PutStr (p+1) == 0) retval = 0;
} /* if */
} /* if */
PutStr("\n");
FreeArgs (args);
} /* if */
CloseLibrary (DOSBase);
} /* if */
return (retval);
} /* _main */
/******************************************************************************
***** END Suffix.c
******************************************************************************/